home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / VGA.DEF < prev    next >
Encoding:
Modula Definition  |  2000-09-26  |  718 b   |  27 lines
  1. (*$S- *)
  2. DEFINITION MODULE VGA;
  3.  
  4. FROM SYSTEM IMPORT ADDRESS;
  5. FROM GEM    IMPORT STRING;
  6.  
  7. PROCEDURE CopyVideo2Buffer(buffer  : ADDRESS;
  8.                            x,y,w,h : CARDINAL);
  9. PROCEDURE CopyBuffer2Video(buffer  : ADDRESS;
  10.                            x,y,w,h : CARDINAL);
  11.  
  12. PROCEDURE ClearVideo(x,y,w,h : CARDINAL);
  13.  
  14. PROCEDURE CheckVGA() : BOOLEAN;
  15.  
  16. PROCEDURE SetRGB(c,r,g,b : CARDINAL);
  17.  
  18. PROCEDURE PutChar(farbe,x,y : CARDINAL; zeichen : CHAR);
  19. PROCEDURE PutText(farbe,x,y : CARDINAL; text : STRING);
  20.  
  21. PROCEDURE SetPixel(farbe,x,y : CARDINAL);
  22. PROCEDURE DrawX(farbe,x,y,xw : CARDINAL);
  23. PROCEDURE DrawY(farbe,x,y,yw : CARDINAL);
  24. PROCEDURE DrawBorder(fp,bp,x,y,w,h : CARDINAL);
  25.  
  26. END VGA.
  27.